home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / inrstex / texgraph / texgraph.tex < prev    next >
Text File  |  1991-09-16  |  33KB  |  860 lines
  1. % DVIPS version 
  2.  
  3. % included are the changes required to make it work with DVIPS 
  4. % It should be modifiable to any other decent driver too
  5.  
  6. % This is the complete texgraph macros ... for use with the INRS/Beebe 
  7. % Postscript driver
  8.  
  9. % This is the INRSTEX version 
  10.  
  11. % Graphics macros for TeX using POSTCRIPT
  12.  
  13. % ----- Needs mod to count characters in special ... some drivers have an
  14. %   input limit of 500 characters in a \special 
  15.  
  16.  
  17. % ===============================================================
  18. % THIS VERSION IS FOR USE with a PostScript Driver with
  19. %          \p@sfile     to signal a file name 
  20. %          \p@sinline    to signal inline PostScript 
  21. %    processes \specials and dvi commands in order. 
  22. %    does not place a (save restore) pair about a \special. 
  23. %
  24. %   \printhv defines scale/directions for inline Postscript
  25. %   \filehv  defines scale/directions for file Postscript
  26. %  
  27. %  Both INRS's modification of Beebe's DVIALW and ArborText's PostScript 
  28. %    drivers satisfy these minimal requirements. 
  29.  
  30. % It assumes that the underlying units are 300 pix/in
  31. % Standard PostScript Conventions 
  32. % This is easily changed by changing the \hpix or \vpix
  33. % It assumes that x,y are in the "normal" up/left direction.
  34.  
  35. % File inclusions require the existence of a bounding box for the correct
  36. % spacing to be left. 
  37.  
  38. % ===============================
  39. % Most arguments, excepting file names, are delimited by spaces. Thus 
  40. % braces { .... } will usually only occur around inserted text ... which
  41. % still must be followed by a space or end of line. 
  42.  
  43.  
  44. % ======================
  45.  
  46. \catcode`\@=11
  47.  
  48. % =============== Driver Signal Forms =======================
  49.  
  50. %\xdef\p@sfile{ps: } % file signal INRS DVIALW
  51.  \xdef\p@sfile{ps: plotfile } % file signal DVIPS
  52. \xdef\p@sinline{ps:: }     % inline signal DVIPS ... INRS DVIALW
  53.  
  54. % This translates the direction of the page if the printer assumptions
  55. %  are different than TeX. The values should be +-1. 
  56. \gdef\printhv #1 #2 {\gdef\p@hv{ #1 #2 scale }}
  57. \gdef\filehv #1 #2 {\gdef\f@schv{ #1 #2 scale }} 
  58. \gdef\rtdir #1 {\gdef\r@tdir{ #1 }} % neg or  nothing PS has no pos 
  59.  
  60.  
  61.  
  62.  
  63.  
  64. % ============== LateX support =================
  65.  
  66. %\newenvironment{TeXgraph}{\btg}{\etg}
  67.  
  68. % This is the only change between the LateX and INRSTeX versions 
  69.  
  70. % ======= Simple Plotfile support ===========
  71.  
  72. %  These are vanilla  forms for inserting an encapsulated PostScript file
  73. %  or creating a centered graphics environment. 
  74.  
  75. % \centergraph needs to be very \long 
  76.  
  77. \long\gdef\centergraph#1{\hbox to 
  78.                 \hsize{\hss\vbox{#1\vgraphskip}\hgraphskip\hss}}
  79. \gdef\centerplotfile#1{\centergraph{\btg\includefile {#1} \etg}}
  80.  
  81.  
  82. % if you use the Latex command to create the new texgraph environment, 
  83. % then you will automatically be "inside" Texgraph. This
  84. % means that you should use such commands as 
  85. %  \includefile  \incscmvfile \incscfile 
  86.  
  87.  
  88.  
  89.  
  90. % ========= error messages =========
  91. % \language=0 -- English, 1 - French
  92. \ifnum \language=0 \message{<< WARNING -- TeXGraph needs DVIPS >>}
  93.                    \xdef\bbmess{Searching for BoundingBox }
  94.                    \xdef\incfile{Graphics file}
  95.                    \xdef\badincfile{Size/Format Error in Graphics File}
  96.                    \xdef\noincfile{Missing Graphics File}
  97.              \else
  98.                    \message{<< AVERTISSMENT -- TeXGraph a besoin du DVIPS >>}
  99.                    \xdef\bbmess{Searching for BoundingBox }
  100.                    \xdef\incfile{Graphics file}
  101.                    \xdef\badincfile{Size/Format Error in Graphics File}
  102.                    \xdef\noincfile{Missing Graphics File}
  103.              \fi
  104.  
  105. % ===== debugging code ===== 
  106. % will send out specials as messages 
  107. \gdef\dmess #1{}
  108. \gdef\bmess #1{}
  109.  
  110. % ======== \global\newif =======
  111. % Plain defines the \newif as a local variable. We need a global
  112. % version if TeXgraph is to be brought in while inside a group.
  113. % This is a simpler, but less elegant version of \newif
  114.  
  115. %#1 is \if<..> #2 -...true #3 ...false
  116. \gdef\gnewif#1#2#3{\global\let#1=\iffalse \gdef#2{\let#1=\iftrue}\relax
  117.                           \gdef#3{\let#1=\iffalse}}
  118.  
  119. % ======== TeXGraph Macros ==========
  120.  
  121. % Postcript allows for arbitrary translation, scaling, rotation and clipping.
  122. % This version saves the current segment scale(s), unit scale(s), rotation 
  123. % and translation and painfully computes and retores the correct form after 
  124. % a segment exit. The reason for this is that Postcript can stack only one 
  125. % CTM, text needs to have correct rotation and translation but default
  126. % scaling ...
  127.  
  128. % It would be preferable not to convert any of the units. However, it is 
  129. % necessary to know the maximum excursions. Since the PS currentpoint is 
  130. % not accessible to TeX, we must keep it ourselves. 
  131. % Since negative numbers can be used both maximum and minimum excursions 
  132. % are required. 
  133.  
  134.  
  135. % ====== begin -- end graphics =======
  136.  
  137. % The maximum and minimum extent in the h and v direction is recorded 
  138. % and is accessible
  139. % at the end of a \btg \etg pair (in points). The same value, in pixels is accessible at
  140. % all times 
  141. \newcount\maxhpospix
  142. \newcount\maxvpospix
  143. \newcount\minhpospix
  144. \newcount\minvpospix
  145. \newdimen\hgraphsize
  146. \newdimen\vgraphsize
  147.  
  148. \gdef\vgraphskip{\vskip\vgraphsize}
  149. \gdef\hgraphskip{\hskip\hgraphsize}
  150.  
  151.  
  152. \gdef\beginTeXGraphics{\t@exgraphdef \i@ncgdepth  
  153.                     \vbox\bgroup\offinterlineskip
  154.                      \h@pos=0 
  155.                      \global\maxhpospix=\h@pos 
  156.                      \global\minhpospix=\h@pos 
  157.                      \v@pos=0
  158.                    \global\maxvpospix=\v@pos 
  159.                    \global\minvpospix=\v@pos 
  160.                      \h@segoff=\h@pos \v@segoff=\v@pos
  161.                      \edef\o@form{}\ifnum\g@depth=1  
  162.                      \p@sinit  \fi \p@sset % PS initialization 
  163.                       \s@save}
  164. % \s@save saves the initialization for the special output.
  165. % \g@save saves some local condition 
  166.  
  167. \gdef\endTeXGraphics{\g@raphout\egroup\maxhvpos\p@srestore \d@ecgdepth }
  168. \global\let\btg=\beginTeXGraphics
  169. \global\let\etg=\endTeXGraphics
  170. \global\let\btg=\beginTeXGraphics
  171. \global\let\etg=\endTeXGraphics
  172.  
  173. % ========== TeXGraph Nesting Depth ==========
  174. \newcount\g@depth \global\g@depth=0 % initializes at zero
  175. \gdef\i@ncgdepth{\global\advance\g@depth by 1 }
  176. \gdef\d@ecgdepth{\global\advance\g@depth by -1 }
  177.  
  178.  
  179.  
  180. % =========== Complete Graph Scaling ===============
  181. % There is a separate scaling for the horizontal, vertical, and text
  182.  
  183.  
  184. \gdef\grscale h:#1 v:#2 {\gdef\h@grsc{#1}\gdef\v@grsc{#1}\e@xtend 
  185.                            {\o@form}{#1 #2 scale }}
  186.                            
  187. \gdef\tgrscale #1 {\e@xtend{\o@form}{#1 #1 scale }}
  188.               % text scale h and v the same
  189.  
  190.  
  191.  
  192.  
  193. % ======== PostScript initialization =========
  194. % 
  195.  
  196. \gdef\t@exgrdictdef{/td 50 dict def }
  197.  
  198.  
  199.  
  200. \gdef\t@exgrdictinit{ td begin  /mv {moveto} def
  201.                                  /lv {lineto} def
  202.                                  /st {stroke} def
  203.                                  /np {newpath} def
  204.                                  /sl {setlinewidth} def
  205.                                  /sd {setdash} def
  206.                                  /rt {rotate} def
  207.                                  /gs {gsave} def
  208.                                  /gr {grestore} def
  209.                                  /tr {translate} def
  210.                                  /cp {closepath} def
  211.                                  /sg {setgray} def
  212.                                  /chv {currentpoint} def
  213.                                  /cv {curveto} def
  214.                                  /slc {setlinecap} def
  215.                                  /slj {setlinejoin} def
  216.                                  /sc {scale} def
  217.                                  /at {neg atan rt} def
  218.                                  /mx {mv gs chv tr} def  
  219. %                                 \h@vinit
  220.                                 end }        
  221. % ----- initial point move ... driver dependent -----
  222. \gdef\Xpos{Xp\the\g@depth\b@}
  223. \gdef\Ypos{Yp\the\g@depth\b@}
  224.  
  225. \gdef\h@vinit{ chv /\Ypos   exch 
  226.                def /\Xpos  exch def }
  227. \gdef\h@vset{\t@rhv  \p@hv }
  228. \gdef\m@vhv{ \Xpos   \Ypos   mv } % INRS
  229. \gdef\t@rhv{ \Xpos  \Ypos  tr } % INRS
  230. \gdef\t@rneghv{ \Xpos neg \Ypos neg tr } % INRS
  231.                      
  232. \gdef\p@sinit{\edef\e@form{\special{\p@sinline   
  233.                                \t@exgrdictdef 
  234.                                \t@exgrdictinit}}
  235. \gdef\p@sset{\special{\p@sinline  td begin \h@vinit gs \t@rhv 
  236.                                    \p@hv end }}\e@form\dmess{\e@form}} 
  237.  
  238. % ======== PostScript termination =========
  239. \gdef\p@srestore{\edef\e@form{\special{\p@sinline  grestore }}\e@form
  240.                             \dmess{\e@form}}
  241.                % resets to entry into TeXgraph and recovers memory 
  242.  
  243. %========= macros for converting dimensions/units =========
  244. % --------- \box0 must not be void ----------
  245. \global\setbox0=\hbox{}
  246.  
  247. %default values
  248. \gdef\graphdim#1 {\gdef\g@dim{#1\relax}}
  249.  
  250. %pixels /dim unit
  251. \newcount\h@pix  % sp/pixel 
  252. \gdef\hpix#1/#2 {\wd0=1true#2\relax
  253.          \h@pix=\wd0 \divide\h@pix by #1 \relax}
  254. \newcount\v@pix  % sp/pixel 
  255. \gdef\vpix#1/#2 {\wd0=1true#2\relax
  256.          \v@pix=\wd0 \divide\v@pix by #1 \relax}
  257.  
  258. % Assumes #1 is dimension #2 is count in pixels, #3 sp/pix, #4 scalefactor (real)
  259. % #2 is returned
  260. \gdef\gendimtopix#1#2#3#4{\wd0=#1\dimen0=#4\wd0\relax
  261.                   \wd0=\dimen0 #2=\wd0 \divide #2 by #3\relax}
  262. % #1 is returned, #5 -\global or {}
  263. \gdef\genpixtopt#1#2#3#4#5{\multiply #2 by #3\relax\wd0=#2sp
  264.                       #5#1=#4\wd0\relax}
  265.  
  266. % ---------- Converts maxpix to maxdim removes offset -----
  267. \gdef\maxhvpos{\global\advance\maxhpospix by -\minhpospix\relax
  268.            \genpixtopt{\hgraphsize}{\maxhpospix}{\h@pix}{\h@grsc}{\global}\relax
  269.               \global\advance\maxvpospix by -\minvpospix\relax
  270.                    \genpixtopt{\vgraphsize}{\maxvpospix}{\v@pix}{\v@grsc}{\global}}
  271.  
  272.  
  273.  
  274. % ======== The vector offsets my be relative or absolute =====
  275.  
  276. \gnewif{\ifr@elpos}{\r@elpostrue}{\r@elposfalse} %default is absolute 
  277. \gdef\absoluteposition{\r@elposfalse}
  278. \gdef\relativeposition{\r@elpostrue}
  279. \global\let\abspos=\absoluteposition 
  280. \global\let\relpos=\relativeposition 
  281. \global\let\absolute=\absoluteposition % historical
  282. \global\let\relative=\relativeposition % historical
  283.  
  284. % ====== update #1 by #2 r@elpos to #3, #4 is max #5 is min=======
  285. \gdef\u@pdate#1#2#3#4#5{\ifr@elpos \advance #1 by #2\else
  286.                         \advance #2 by #3\relax
  287.                            #1=#2\fi
  288.                     \ifnum #1>#4\global #4=#1\fi
  289.                     \ifnum #1<#5\global #5=#1\fi
  290.                     }
  291. \gdef\h@update #1{\u@pdate{\h@pos}{#1}{\h@segoff}{\maxhpospix}{\minhpospix}}
  292. \gdef\v@update #1{\u@pdate{\v@pos}{#1}{\v@segoff}{\maxvpospix}{\minvpospix}}
  293.  
  294. % === pixel position r@elpos to initial offset starting position
  295. \newcount\h@pos \h@pos=0
  296. \newcount\v@pos \v@pos=0
  297. \newcount\r@ang \r@ang=0 % 1000 times degrees ?
  298.  
  299.  
  300. % ===== Check for pen up moves only =====
  301. % penup/down are used to determine whether a line needs to be stroked 
  302. % when a line pattern or penwidth is changed. 
  303.  \gnewif{\ifp@down}{\p@downtrue}{\p@downfalse} 
  304.  
  305.  
  306. % ===== present segment origin and rotation ==========
  307.  
  308. \newcount\h@segoff
  309. \newcount\v@segoff 
  310. \newcount\r@segoff % 1000 times degrees 
  311.  
  312.  
  313. \gdef\beginsegment{\g@raphout\begingroup\s@eginit}
  314.  
  315. % segment initialization is a trifle messy 
  316. \gdef\s@eginit{\h@segoff =\h@pos \v@segoff=\v@pos}
  317.  
  318.  
  319. % PS has the concept of a path  that is either 
  320. % completed with a "stroke" or "fill" ... stroking 
  321. % at the end or beginning of a segment, the special is written out. This is 
  322. % to ensure that the input order of the graphics reflects what entities are
  323. % on top of what others. Further it is assumed that the origin does not
  324. % change during an entire \btg ...\etg section. This means that every special
  325. % must first move to the point where the previous one left off. \s@save
  326. % defines \s@restore that restores, in case they had been modified, the line 
  327. % width, pattern, hpos, vpos, ... and any future things that need restoration.
  328. % all graphic specials are ended with a stroke (st), whether it needs it not. 
  329.  
  330. % we need a special form to force a space after a \the\nnn form or \p@w 
  331.  
  332. \gdef\b@{ }
  333.  
  334. \gdef\endsegment{\g@raphout\endgroup
  335.        \edef\o@form{}\s@save}
  336. \gdef\s@pout #1#2{\edef\e@form{\special{#1\s@restore\o@form#2}}\dmess{\e@form}\e@form
  337.                   \edef\o@form{}\s@save}
  338. %\h@vset if there is  a move before each special 
  339. \gdef\g@raphout{\ifx\empty\o@form \else \ifp@down 
  340.                  \s@pout{\p@sinline  td begin }{ st end }\fi\fi\p@downfalse}
  341. \global\let\graphout=\g@raphout
  342.  
  343. % ====== Segment and units scaling ========
  344. % The units in any segment may be scaled arbitrarily. A unit scale is local
  345. % to a segment but affects enclosed segments unless specifically overidden 
  346. % in that segment. In addition there is a graph or segment scale. This
  347. % scaling factor is accumulative and is applied on top of the unit scale.
  348. % These two scaling factors allow for a segment to be designed in nominal
  349. % units, scaled to a nominal size and then be affected by relative scaling
  350. % of an entire graph or segment. In addition there is a relative/absolute
  351. % scale switch that allows for any segment to be unaffected by a graphscale.
  352.  
  353. % \u@nitsc -- present unit scale, \s@egsc -- present segment scale
  354. % \g@rsc -- present graphscale ... changes when ever either of the former do.
  355.  
  356. % present implementation does not allow separate v h scaling
  357.  
  358. % ------ Relative/Absolute Scale ------
  359. \gnewif{\ifr@elscale}{\r@elscaletrue}{\r@elscalefalse}
  360. \gdef\absolutescale{\r@elscalefalse}
  361. \gdef\relativescale{\r@elscaletrue}
  362. \global\let\abssc=\absolutescale
  363. \global\let\relsc=\relativescale
  364.  
  365. % ----- unit scale -----
  366. \gdef\unitscale#1 {\edef\u@nitsc{#1}\newgraphscale}
  367.  
  368. \global\let\graphscale=\unitscale % Historical 
  369.  
  370. % ----- Segment Scale -----
  371.  
  372. \gdef\segmentscale#1 {\ifr@elscale \realmult{#1}{\s@egsc}{\s@egsc}\else
  373.                           \edef\s@egsc{#1}\fi
  374.                        \newgraphscale}
  375.  
  376. % ---- Graph Scale --------
  377. % This changes whenever either of the above change
  378. \gdef\newgraphscale{\realmult{\u@nitsc}{\s@egsc}{\g@rsc}}
  379.  
  380.  
  381. % ------ "Real" Multiplication --------
  382. % These functions use the fact that a box dimension may be scaled by
  383. % a real. The final step is to "clean" off the pt on the resulting dim
  384.  
  385. % Cleans off the pt in a dimension ... pt has catcode 12
  386. {\catcode`\p=12 \catcode`\t=12
  387. \gdef\c@lean#1pt{\edef\cx{#1}}}
  388. % #1 and #2 are multiplicands #3 is a command to capture result
  389. \gdef\realmult#1#2#3{\wd0=1pt\dimen0=#1\wd0\wd0=\dimen0\dimen0=#2\wd0
  390.                    \edef\R@M{\the\dimen0}\expandafter\c@lean\R@M\edef#3{\cx}}
  391. \gdef\realadd#1#2#3{\dimen0=#1pt\dimen2=#2pt\advance\dimen0by\dimen2
  392.                    \edef\R@M{\the\dimen0}\expandafter\c@lean\R@M\edef#3{\cx}}
  393.  
  394.  
  395. % -------- Command to convert nominal values to pixels ------
  396. % #1 is a decimal number, #2 must be a count, #3 is sp/pix
  397. % This includes all scalings
  398. \gdef\grdimtopix#1#2#3{\gendimtopix{#1\g@dim}{#2}{#3}{\g@rsc}}
  399.  
  400.                 
  401. % ------- special forms to update positions ------
  402.  
  403. \gdef\i@h#1{\grdimtopix{#1}{\d@umc}{\h@pix}\h@update{\d@umc}}
  404. \gdef\i@v#1{\grdimtopix{#1}{\d@umc}{\v@pix}\v@update{\d@umc}}
  405. \gdef\h@num#1#2{\grdimtopix{#1}{#2}{\h@pix}}
  406. \gdef\v@num#1#2{\grdimtopix{#1}{#2}{\v@pix}}
  407.  
  408.  
  409. %dummy variables
  410. \newcount\d@uma
  411. \newcount\d@umb
  412. \newcount\d@umc
  413. \newcount\d@umd
  414. \newcount\d@ume
  415.  
  416. % ====== end macros for converting dimensions
  417.  
  418. % ======== Some more Utility Macros ========
  419. % ======== recursive macros ========
  420. \gdef\e@xtend #1#2{\let\d@x=#1\edef #1{\d@x #2}}
  421. \xdef\s@pex{}
  422. \xdef\s@pin{ }
  423. \gdef\s@pexpand #1 #2!{\e@xtend{\s@pex}{#1\s@pin}\edef\t@x{#2}\ifx\t@x\empty\relax \else 
  424.                       \s@pexpand #2!\fi}
  425.  
  426. % ========== A Do Loop Construction =========
  427. % \do <something> for <number of times>\od 
  428. % This is a specialization of the \loop in Plain.
  429.  
  430. \newcount\d@count 
  431. \gdef\do #1 for #2\od{\d@count=#2\loop #1 \ifnum\d@count>1\advance
  432.                             \d@count by -1\repeat}
  433.  
  434.  
  435. % ========= Graphics specials =======
  436. \xdef\o@form{}
  437. \gdef\penwidth #1 {\h@num{#1}{\d@umc}\edef\p@w{\the\d@umc}\ifp@down \g@save 
  438.                      \e@xtend{\o@form}{st \g@restore }
  439.                        \else \e@xtend{\o@form}{\p@w\b@ sl }\fi}
  440. \gdef\linecap #1 {\edef\s@lc{#1}\ifp@down \g@save 
  441.                      \e@xtend{\o@form}{st \g@restore }
  442.                        \else \e@xtend{\o@form}{\s@lc\b@ slc }\fi}
  443. \gdef\linejoin #1 {\edef\s@lj{#1}\ifp@down \g@save 
  444.                      \e@xtend{\o@form}{st \g@restore }
  445.                        \else \e@xtend{\o@form}{\s@lj\b@ slj }\fi}
  446. \gdef\lpatt p:#1 {\edef\v@p{#1 0}\ifp@down \g@save 
  447.                      \e@xtend{\o@form}{st \g@restore }
  448.                        \else \e@xtend{\o@form}{\v@p\b@ sd }\fi}
  449.  
  450.  
  451. % ==== parameters are in units of the nominal dimension \g@dim ======
  452.  
  453. \gdef\p@move #1#2#3{\i@h{#1}\i@v{#2}\e@xtend{\o@form}{\the\h@pos\b@ \the\v@pos\b@ #3 }}
  454.  
  455. \gdef\lvec h:#1 v:#2 {\p@move{#1}{#2}{lv}\p@downtrue} %draws a line 
  456.  
  457. \gdef\move h:#1 v:#2 {\p@move{#1}{#2}{mv}} %moves 
  458.  
  459.  
  460. % ======  a general  vector with dimensions in pixels ======
  461.  
  462. % ========= General pixel dim vector ==========
  463.  
  464. \gdef\lpix h:#1 v:#2 f:#3 {\e@xtend{\o@form}{ #1 #2 #3 }}
  465.  
  466.  
  467. %============== puts TeX text at this  position
  468. % These are pure TeX macros that use \h@pos and \v@pos for orientation
  469. % Text may be put horizontally (left/right) or vertically (down/up)
  470.  
  471. % ======== sp form of \h@pos and \v@pos respectively ========
  472. \newdimen\t@hpos
  473. \newdimen\t@vpos
  474. \gdef\s@ettpos{\d@umc=\h@pos
  475.                \genpixtopt{\t@hpos}{\d@umc}{\h@pix}{}{}\relax
  476.                \d@umc=\v@pos
  477.                \genpixtopt{\t@vpos}{\d@umc}{\v@pix}{}{}\relax}
  478.  
  479.  
  480.  
  481. % any one of nine reference point may be specified on the
  482. % TeX box. This is Vertical T,C,B and Horizontal L,C,R 
  483. % The actual box is 0 height and width. 
  484. \newbox\t@box 
  485. % #1 LCR default/error L #2 TCB default/error T #3 text -- in hbox
  486.  
  487. % Sets the box glues \lhglue \rhglue \tvglue \bvglue
  488. % #1 x/h ref, #2 v/y ref
  489. \gdef\textref h:#1 v:#2 {\ifx#1R\edef\lhglue{\hss}\edef\rhglue{}\else
  490.                              \ifx#1C\edef\lhglue{\hss}\edef\rhglue{\hss}\else
  491.                                \edef\lhglue{}\edef\rhglue{\hss}\fi\fi
  492.                           \ifx#2B\edef\tvglue{\vss}\edef\bvglue{}\else
  493.                              \ifx#2C\edef\tvglue{\vss}\edef\bvglue{\vss}\else
  494.                                \edef\tvglue{}\edef\bvglue{\vss}\fi\fi}
  495. \global\let\tboxref=\textref
  496.  
  497. \newcount\h@oldmaxpos \newcount\v@oldmaxpos
  498.  
  499.            %needed to save max pos when texgraph is inside an h/vtext
  500.  
  501. % ========== assumes driver location at initial \btg entry ========
  502. % 
  503.  
  504. % #1 text #2 - begin rotation form  #3 - end rotation form 
  505. \long\gdef\m@text#1#2#3{\g@raphout\h@oldmaxpos=\maxhpospix\relax 
  506.                         \v@oldmaxpos=\maxvpospix\relax 
  507.        \edef\h@oldgrsc{\h@grsc}\edef\v@oldgrsc{\v@grsc}\s@ettpos
  508.             \setbox\t@box=\vbox{\normalbaselines
  509.               \vskip\t@vpos\hbox{\hskip\t@hpos
  510.              \t@init{#2}\relax
  511.              \vbox to 0pt{\normalbaselines
  512.                           \tvglue\hbox to 0pt{\lhglue\hbox{#1}\rhglue
  513.                               }\bvglue}}}\relax
  514.           \dp\t@box=0pt\ht\t@box=0pt\wd\t@box=0pt 
  515.             \box\t@box
  516.              \t@fin{#3}
  517.             \global\maxhpospix=\h@oldmaxpos\relax 
  518.              \global\maxvpospix=\v@oldmaxpos\relax 
  519.             \xdef\h@grsc{\h@oldgrsc}\edef\v@grsc{\v@oldgrsc}}
  520.          % saves maxh(v)pospix on stack 
  521.  
  522.             
  523. % ========== PS text initializations and terminations ===========
  524. \gdef\t@init#1{\special{\p@sinline  td begin \h@vinit  gr gs 
  525.                          \t@rhv #1 \t@rneghv end }} 
  526.  
  527. \gdef\t@fin#1{\special{\p@sinline  td begin \h@vinit gr gs \m@vhv \t@rhv \p@hv end }}
  528.  
  529. % .... special test 
  530. %\gdef\t@init#1{}
  531. %\gdef\t@fin#1{}
  532. % ... end special test
  533.  
  534.  
  535.  
  536. \long\gdef\htext #1 {\m@text{#1}{}{}}
  537. \long\gdef\vtext #1 {\m@text{#1}{  90 \r@tdir rt }{}}
  538. \long\gdef\rtext d:#1 t:#2 {\m@text{#2}{ #1 \r@tdir rt }{}}
  539. \long\gdef\rstext d:#1 sc:#2 t:#3 {\m@text{#3}{ #1 \r@tdir rt #2 #2 sc }{}}
  540. \global\let\tbox=\htext
  541.  
  542. % ========= Various Restore forms ========
  543. \gdef\g@save{\edef\g@restore{\p@w\b@ sl \v@p\b@ sd \s@lc\b@ slc \s@lj\b@ slj
  544.                              np \the\h@pos\b@ \the\v@pos\b@ mv }}
  545. \gdef\s@save{\edef\s@restore{\p@w\b@ sl \v@p\b@ sd \s@lc\b@ slc \s@lj\b@ slj 
  546.                               np \the\h@pos\b@ \the\v@pos\b@ mv }}
  547.  
  548.  
  549.  
  550.  
  551. % ======== circle, arcs =========
  552. % The PS arc will connect the center of the arc to the circumference
  553. % if the newpath includes the move to this point. Thus we define a 
  554. % set of arc functions that include/exclude this feature. The default
  555. % does not include this form. 
  556.  
  557. \gdef\larc r:#1 sd:#2 ed:#3 {\h@num{#1}{\d@umc}\p@downtrue 
  558.              \e@xtend{\o@form}{ st np \the\h@pos\b@ \the\v@pos\b@ \the\d@umc\b@ #2 #3 arc
  559.                                 st np \the\h@pos\b@ \the\v@pos\b@ mv }}
  560.  
  561. \gdef\lcir r:#1 {\larc r:#1 sd:0 ed:360 }
  562.  
  563. % ------ this is a raw arc ... can be used in fills --------
  564.  
  565. \gdef\arcc r:#1 sd:#2 ed:#3 {\h@num{#1}{\d@umc}\p@downtrue 
  566.              \e@xtend{\o@form}{\the\h@pos\b@ \the\v@pos\b@ \the\d@umc\b@ #2 #3 arc }}
  567.  
  568. \gdef\arcn r:#1 sd:#2 ed:#3 {\h@num{#1}{\d@umc}\p@downtrue 
  569.              \e@xtend{\o@form}{\the\h@pos\b@ \the\v@pos\b@ 
  570.                        \the\d@umc\b@ #2 #3 arcn }}
  571.  
  572. % ======= fill command ==========
  573. % The fill command is essentially a polygonal fill ... not a point spreading
  574. % this means that it is possible to erase with white ... The form here
  575. % completes with a closepath applies the fill, starts a newpath and moves 
  576. % to the current point. Pattern is a grey level. 
  577. % 0 is black 1 is white 
  578.  
  579. \gdef\pfill p:#1 {\p@downtrue
  580.            \e@xtend{\o@form}{cp #1 sg fill np \the\h@pos\b@ \the\v@pos\b@ mv }}
  581.  
  582.  
  583. % this form both fills and strokes around the path 
  584. \gdef\lpfill p:#1 {\p@downtrue
  585.            \e@xtend{\o@form}{cp gs #1 sg fill gr st np \the\h@pos\b@ \the\v@pos\b@ mv }}
  586.  
  587. % ======== Postscript special forms ========
  588. % This allows "raw" postscript to be put in the graph. 
  589. \gdef\pst #1{\e@xtend{\o@form}{#1 }}
  590.  
  591. % These are some useful postscript compatible forms.
  592.  
  593. \gdef\closepath{\e@xtend{\o@form}{cp }}
  594. \gdef\newpath{\e@xtend{\o@form}{np }}
  595. \gdef\stroke{\e@xtend{\o@form}{st }}
  596.  
  597.  
  598.  
  599. % ========= including external files ==========
  600. % an external file is included at the present point on the graph area
  601. % moves are required to get there
  602. % The actual file is placed inside a \t@box and tex commands are used
  603. % to get to the place ... They probably can be nested 
  604. % #1 is the filename 
  605.  
  606. % The file is opened, if possible, to read its size. If this exists, it
  607. % is used to update the maximum h/v position. 
  608. % The BoundingBox is determined 
  609.  
  610.  
  611. \newread\q@file 
  612. % #1 is the file name
  613. \gnewif{\ifq@read}{\q@readtrue}{\q@readfalse}
  614. \gnewif{\ifq@file}{\q@filetrue}{\q@filefalse}
  615. \gnewif{\ifb@boxexists}{\b@boxexiststrue}{\b@boxexistsfalse}
  616. % #1 == %%BoundingBox, #2 llh #3 llv #4 urh #5 urv #6 rest of line  
  617.  
  618.  
  619. \gdef\uncat{\catcode`"=12}
  620.  
  621. {\catcode`\%=12 
  622. \gdef\l@shift{\ifx\l@lh\empty \xdef\l@lh{\l@lv}\xdef\l@lv{\u@rh}\xdef
  623.                                    \u@rh{\u@rv}\xdef\u@rv{\e@xt}\fi} 
  624. \gdef\B@Box{%%BoundingBox}
  625. \gdef\a@tend{(atend)}
  626. \gdef\a@tendtest{\l@shift\ifx\l@lh\a@tend\relax\else 
  627.            \global\b@boxexiststrue\q@readfalse\bmess{<< At End Test >>}\fi}
  628.         
  629. \long\gdef\q@inline #1:#2 #3 #4 #5 #6 #7//{\xdef
  630.                 \q@bbtest{#1}\xdef\l@lh{#2}\xdef
  631.           \l@lv{#3}\xdef\u@rh{#4}\xdef\u@rv{#5}\xdef
  632.                 \e@xt{#6}\ifx\q@bbtest\B@Box 
  633.              \a@tendtest\fi 
  634.              \ifeof\q@file \q@readfalse \fi}
  635.  
  636. \gdef\s@bbox{\b@boxexistsfalse
  637.              \message{<< \bbmess -- \f@ilename>>}\q@readtrue
  638.               \loop \relax \ifq@read\r@eadline\repeat}
  639.  
  640. \gdef\r@eadline{ {\uncat \global\read\q@file to\q@parms }
  641.   \expandafter\q@inline\q@parms {}:{\relax} {\relax} {\relax} {\relax}
  642. {\relax} \relax//\bmess{<<\q@parms>>}}
  643.  
  644. \gdef\g@etpsize #1{{\catcode`\%=12\openin\q@file = #1\relax
  645.                \edef\q@parms{}\global\q@filetrue\xdef\f@ilename{#1}
  646.                \ifeof\q@file \message{<<\noincfile: #1 >>}\relax
  647.                              \global\q@filefalse\else
  648.                    \s@bbox
  649.                   \closein\q@file\fi}}
  650.  
  651. } % end of % disable 
  652.  
  653. \newcount\h@px \newcount\v@px \newcount\h@mx \newcount\v@mx 
  654. \gdef\s@avemaxpos{\global\h@px=\maxhpospix\global\v@px=\maxvpospix
  655.                   \global\h@mx=\minhpospix\global\v@mx=\minvpospix}
  656. \gdef\r@estoremaxpos{\global\maxhpospix=\h@px\global\maxvpospix\v@px
  657.                   \global\minhpospix=\h@mx\global\minvpospix\v@mx}
  658.  
  659. \gdef\f@sc{\b@}
  660. \gdef\f@rt{\b@}
  661. \gdef\filerotate#1{\edef\f@rt{ XposR YposR tr   #1 \r@tdir rt XposR neg 
  662.                                YposR neg tr }}
  663.  
  664. \gdef\filescale #1{\edef\f@sc{#1 #1 sc \f@schv}}
  665. \gdef\p@fileinit{  td begin \h@vinit gr gs \f@rt \t@rhv \f@sc end  
  666.                    /texgraph save def  /showpage {} def }
  667. \xdef\p@filefin{ texgraph  restore }
  668. \global\let\mvec=\move
  669.  
  670.  
  671.  
  672. \gdef\includefile #1 {\incscfile f:{#1} sc:1 d:0 }
  673.  
  674. \gdef\incscfile f:#1 sc:#2 d:#3 {\g@etpsize{#1}\ifb@boxexists
  675.         \message{<<\incfile: #1 >>}\realadd{\u@rh}{-\l@lh}{\p@lh}
  676.                                    \realadd{\u@rv}{-\l@lv}{\p@lv}
  677.                                    \realmult{\p@lh}{.5}{\p@lhh}
  678.                                    \realmult{\p@lv}{.5}{\p@lvh}
  679.                             \beginsegment 
  680.                                \segmentscale #2 
  681.                                \global\let\g@dimo=\g@dim 
  682.                                 \graphdim  pt 
  683.                                  \mvec h:{\p@lh} v:{\p@lv}
  684.                                  \mvec h:{\p@lhh} v:{\p@lvh}
  685.                                  \m@text{}{ /XposR \Xpos\b@ def 
  686.                                             /YposR \Ypos\b@ def }{}  
  687.                             \endsegment
  688.                             \s@avemaxpos
  689.                             \beginsegment \segmentscale #2 
  690.                                   \mvec h:{-\l@lh} v:{\u@rv}
  691.                               \htext{\filescale{#2}\filerotate{#3}\relax
  692.                                 \special{\p@sinline\p@fileinit }
  693.                                 \special{\p@sfile  #1 }
  694.                                 \special{\p@sinline\p@filefin }}
  695.                             \endsegment
  696.                             \r@estoremaxpos 
  697.                             \global\let\g@dim=\g@dimo 
  698.                       \else\message{<<\badincfile: #1 >>}\fi  }
  699.  
  700. \gdef\incscmvfile f:#1 sc:#2 d:#3 h:#4 v:#5 {\g@etpsize{#1}\ifb@boxexists
  701.         \message{<<\incfile: #1 >>}\realadd{\u@rh}{-\l@lh}{\p@lh}
  702.                                    \realadd{\u@rv}{-\l@lv}{\p@lv}
  703.                                    \realmult{\p@lh}{.5}{\p@lhh}
  704.                                    \realmult{\p@lv}{.5}{\p@lvh}
  705.      \ifx#4L \edef\f@h{0}\else \ifx#4C \edef\f@h{1} \else \edef\f@h{2}\fi\fi 
  706.      \ifx#5T \edef\f@v{0}\else \ifx#5C \edef\f@v{1} \else\edef\f@v{2}\fi\fi
  707.                                    \realmult{\p@lhh}{\f@h}{\h@off}
  708.                                    \realmult{\p@lvh}{\f@v}{\v@off}
  709.                             \beginsegment 
  710.                                \segmentscale #2 
  711.                                \global\let\g@dimo=\g@dim 
  712.                                 \graphdim  pt 
  713.                                  \mvec h:{-\h@off} v:{-\v@off}
  714.                                \beginsegment
  715.                                  \mvec h:{\p@lh} v:{\p@lv}
  716.                                  \mvec h:{\p@lhh} v:{\p@lvh}
  717.                                  \m@text{}{ /XposR \Xpos\b@ def 
  718.                                             /YposR \Ypos\b@ def }{}
  719.                                \endsegment  
  720.                             \endsegment
  721.                             \s@avemaxpos
  722.                             \beginsegment \segmentscale #2 
  723.                                   \mvec h:{-\l@lh} v:{\u@rv}
  724.                              \beginsegment
  725.                               \mvec h:{-\h@off} v:{-\v@off}
  726.                               \htext{\filescale{#2}\filerotate{#3}\relax
  727.                                 \special{\p@sinline\p@fileinit }
  728.                                 \special{\p@sfile  #1 }
  729.                                 \special{\p@sinline\p@filefin }}
  730.                              \endsegment
  731.                             \endsegment
  732.                             \r@estoremaxpos 
  733.                             \global\let\g@dim=\g@dimo 
  734.                       \else\message{<<\badincfile: #1 >>}\fi  }
  735.  
  736.  
  737.  
  738. % ============ Design Grid ==============
  739. % This will lay down a grid at the present location. The grid nominally
  740. % at unit dimension intervals. The scale factor sc modifies this. The 
  741. % sc is local only to the grid 
  742.  
  743. \newcount\gcount 
  744. \gdef\grid nh:#1 nv:#2 sc:#3 {\gcount= #1 
  745.                               \beginsegment
  746.                               \relative
  747.                               \penwidth .005
  748.                               \graphscale #3 
  749.                               \beginsegment 
  750.                               \loop \lvec h:#2 v:0
  751.                                     \move h:-#2 v:1 
  752.                                     \ifnum \gcount > 1 
  753.                                       \advance\gcount by -1 \repeat
  754.                               \endsegment
  755.                               \gcount = #2
  756.                               \beginsegment 
  757.                               \loop \lvec h:0 v:#1 
  758.                                     \move h:1 v:-#1 
  759.                                     \ifnum \gcount > 1 
  760.                                       \advance\gcount by -1 \repeat
  761.                               \endsegment
  762.                               \endsegment}
  763. %========= end design grid ================
  764.  
  765.  
  766. % =========== Arrow Vectors ==============
  767. % There are three types of arrow heads, filled, open V and triangle
  768. % These are always placed on the end of a vector. 
  769.  
  770. % The basic design has the arrow head which is placed on the vector 
  771. % It theoretically can be placed on any curve where the angle is known or
  772. % computable. 
  773.  
  774.  
  775. \newcount\a@len
  776. \newcount\a@wid
  777.  
  778. % Parameter specification for arrowheads.
  779. % #1 -- length #2 -- width 
  780. % The dimensions are interpreted at current graphscale in force and
  781. % are local to the segment group.
  782. \gdef\arrowheadscale{\arrowheadsize l:.16 w:.04 }
  783. \gdef\arrowheadsize l:#1 w:#2 {\grdimtopix{#1}{\a@len}{\h@pix
  784.                                }\grdimtopix{#2}{\a@wid}{\h@pix
  785.                                 }}
  786. % postcript commands for inidividual arrow form 
  787. \gdef\arrowheadtype t:#1 {\ifx#1T\edef\a@com{cp gs 1 sg fill gr st }\else
  788.                           \ifx#1F\edef\a@com{cp 0 sg fill }\else
  789.                                  \edef\a@com{st }\fi\fi}
  790. \newcount\h@lp
  791. \newcount\v@lp 
  792.  
  793. % assumes that  the dh and dv is in \h@lp \v@lp and present location is tip
  794. % of arrowhead 
  795. \gdef\a@draw{st np \the\h@pos\b@ \the\v@pos\b@ mx 
  796.                    \the\v@lp\b@ neg \the\h@lp\b@  at  
  797.                     -\the\a@len\b@ \the\a@wid\b@ mv 0 0 lv 
  798.                     -\the\a@len\b@ -\the\a@wid\b@ lv 
  799.                      \a@com gr }
  800.                     
  801.                 
  802.  
  803. \gdef\avec h:#1 v:#2 {\h@lp=\h@pos\relax \v@lp=\v@pos\relax
  804.                       \lvec h:#1 v:#2 \advance\h@lp by -\h@pos\relax
  805.                                       \advance\v@lp by -\v@pos\relax
  806.                      \e@xtend{\o@form}{\a@draw}}
  807.  
  808.  
  809. % ============= End Arrow Vectors =============
  810.  
  811. % ========= Bezier Curve ==========
  812. % this is a cubic spline that is determined by four points. The initial 
  813. % point is assumed to be the current point. An arrow is easily added.
  814.  
  815.  
  816. \gdef\clvec h1:#1 v1:#2 h2:#3 v2:#4 h3:#5 v3:#6 {\i@h{#1}\d@uma=\h@pos
  817.             \i@v{#2}\d@umb=\v@pos\i@h{#3}\d@ume=\h@pos\i@v{#4}\d@umd=\v@pos
  818.             \i@h{#5}\i@v{#6}\e@xtend{\o@form}{\the\d@uma\b@ \the\d@umb\b@ 
  819.                   \the\d@ume\b@ \the\d@umd\b@ \the\h@pos\b@ \the\v@pos\b@ 
  820.                    cv }\p@downtrue}
  821. \gdef\clv (#1 #2) (#3 #4) (#5 #6){\clvec h1:#1 v1:#2 h2:#3 v2:#4 h3:#5 v3:#6 }
  822.  
  823. \gdef\cavec h1:#1 v1:#2 h2:#3 v2:#4 h3:#5 v3:#6 {\clvec h1:#1 v1:#2 h2:#3 v2:#4 h3:#5 v3:#6 
  824.                \h@lp=\d@ume \relax \v@lp=\d@umd \relax
  825.                \advance\h@lp by -\h@pos\relax
  826.                \advance\v@lp by -\v@pos\relax
  827.                 \e@xtend{\o@form}{\a@draw}}
  828. \gdef\cav (#1 #2) (#3 #4) (#5 #6){\cavec h1:#1 v1:#2 h2:#3 v2:#4 h3:#5 v3:#6 }
  829.  
  830.  
  831.  
  832.  
  833.  
  834. % ======= default values =========
  835. % These are reset each time \btg is called
  836. \gdef\t@exgraphdef{\setbox0=\hbox{}\graphdim in
  837. \hpix 300/in % INRS Default
  838. \vpix 300/in % INRS Default
  839. \printhv 1 1 % DVIPS 300 dpi
  840. \filehv 4.17 -4.17 % DVIPS 300/72
  841. \rtdir neg  % DVIPS
  842. \def\h@grsc{1}\def\v@grsc{1}%sets default hor/vert scales 
  843. \absoluteposition
  844. \relativescale
  845. \unitscale 1
  846. \penwidth .015
  847. \lpatt  p:{[]}
  848. \linecap 1
  849. \linejoin 1 
  850. \arrowheadsize l:.16 w:.04 
  851. \arrowheadtype t:T 
  852. \textref h:L v:T }
  853.  
  854. \xdef\s@egsc{1}% initial default 
  855.  
  856. \catcode`\@=12 
  857.  
  858.  
  859.  
  860.